home *** CD-ROM | disk | FTP | other *** search
/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d27 / keysrt.s36 < prev    next >
Text File  |  1991-12-04  |  3KB  |  66 lines
  1. // COPY LIBRARY-P,NAME-KEYSRT
  2. *
  3. * This program will generate a procedure that will KEYSORT all indexed
  4. * files on a system.
  5. *
  6. * Copyright 1988,89 by David Gibbs, SysOp
  7. *                   The Midrange System BBS
  8. *                   312-439-9679
  9. *
  10. * This program many be freely distributed in any way shape or form as long
  11. * as no fee is charged for the access or distribution.
  12. *
  13. // IF DATAF1-KEYSRT?WS?      DELETE KEYSRT?WS?,F1
  14. // IF PROC-'KEYSR1,?CLIB?'   REMOVE KEYSR1,P,?CLIB?
  15. *
  16. CATALOG ALL,F1,,,NAME,,KEYSRT?WS?
  17. *
  18. // LOAD #GSORT
  19. // FILE NAME-INPUT,LABEL-KEYSRT?WS?
  20. // FILE NAME-OUTPUT,LABEL-KEYSRT?WS?,DISP-OLD
  21. // RUN
  22.      HSORTR     8A        3    8
  23.      I C  22  22EQCI
  24.      IAC  26  26EQC                    *BLANK
  25.      FNC   1   8
  26. // END
  27. *
  28. // LOAD KEYSRT
  29. // FILE NAME-CATALOG,LABEL-KEYSRT?WS?,RETAIN-S
  30. // FILE NAME-PROC,LABEL-PROC?WS?,RETAIN-J,RECORDS-?F'A,KEYSRT?WS?'?,EXTEND-100
  31. // RUN
  32. *
  33. TOLIBR PROC?WS?,F1,,REPLACE,?CLIB?
  34. *
  35. KEYSR1
  36. *
  37. REMOVE KEYSR1,P,?CLIB?
  38. *
  39. DELETE KEYSRT?WS?,F1
  40. // CEND
  41. // COPY LIBRARY-S,NAME-KEYSRT
  42.      H    P032                      B                                     KEYSRT
  43.      F* This program will generate a procedure that will KEYSORT all
  44.      F* indexed files on the system.
  45.      F*
  46.      F* Copyright 1988 by David Gibbs, SysOp
  47.      F*                   The Midrange System BBS
  48.      F*                   312-439-9679
  49.      F*
  50.      F* This program many be freely distributed in any way shape or
  51.      F* form as long as no fee is charged for the access or distribution.
  52.      F*
  53.      FCATALOG IP    256   8            DISK
  54.      FPROC    O      80  80            DISK
  55.      ICATALOG AA  01
  56.      I                                        1   8 FILENM
  57.      OPROC    H        1P
  58.      O                                   23 '// COPY LIBRARY-P,NAME-'
  59.      O                                   29 'KEYSR1'
  60.      O        D        01
  61.      O                                    7 'KEYSORT'
  62.      O                         FILENM    16
  63.      O        T        LR
  64.      O                                    7 '// CEND'
  65. // CEND